100 REM      BLANK KEYBOARD OVERLAYS
110 REM
120 REM    FOR COMMODORE-64 AND VIC-20
130 REM
140 REM       -------------------
150 REM
160 REM      MARSHALL F. SCHULTZ CDP
170 REM
180 REM   COMMODORE HOUSTON USER GROUP
190 REM
200 REM       -------------------
210 REM
220 REM    REQUIRES A 1525 OR MPS-801
230 REM
240 REM            PRINTER
250 REM
260 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
270 REM "[221] WRITTEN  APRIL 25, 1986 [221]"
280 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
290 REM
300 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
310 REM "[221]LAST UPDATE APRIL 25, 1986[221]"
320 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
330 REM ===============================
340 REM =THIS PROGRAM IS PUBLIC DOMAIN=
350 REM ===============================
360 REM
370 G1$="[176]":G2$="[174]":G3$="[192]":G4$="[173]":G5$="[189]":G6$="[221]"
380 S1$="                                     "
390 S2$=LEFT$(S1$,1)
400 S3$=LEFT$(S1$,4)
410 S4$=LEFT$(S1$,6)
420 S5$=LEFT$(S1$,14)
430 S6$=LEFT$(S1$,29)
440 D1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
450 D2$=LEFT$(D1$,7)
460 D3$=LEFT$(D1$,14)
470 L1$=S3$+G6$+S1$+S1$+G6$
480 L2$=S3$+G6$+S5$+G6$+S6$+G6$+S6$+G6$
490 L3$=S3$+G6$+S4$+G6$+S1$+G6$+S6$+G6$
500 H1$=S3$+"[213][192][201]"+LEFT$(S5$,7)
510 H2$=S3$+"[165] [167]"+LEFT$(S5$,7)
520 H3$=S3$+"[202][192][203]"+LEFT$(S5$,7)
530 TX$(1)="  CEMENT THIS PRINTED FORM TO POSTER "
540 TX$(2)="  BOARD STOCK USING RUBBER CEMENT OR "
550 TX$(3)="  WHITE GLUE. THEN CUT OUT THE FORM  "
560 TX$(4)="  USING AN EXACTO KNIFE.             "
570 TX$(5)="                                     "
580 TX$(6)="  USE YOUR WORD PROCESSOR TO PRINT   "
590 TX$(7)="  LISTS OF COMMANDS, REMINDER NOTES, "
600 TX$(8)="  OR WHATEVER YOU WISH TO CEMENT TO  "
610 TX$(9)="  THE FACE OF THE OVERLAY            "
620 POKE 53280,6:POKE53281,6
630 PRINT"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
640 PRINT"[221]                                      [221][146]";
650 PRINT"[221]     PRINT BLANK KEYBOARD OVERLAY     [221][146]";
660 PRINT"[221]                                      [221][146]";
670 PRINT"[221]      FOR COMMODORE-64 OR VIC-20      [221][146]";
680 PRINT"[221]                                      [221][146]";
690 PRINT"[221]    USING 1525 OR MPS-801 PRINTER     [221][146]";
700 PRINT"[221]                                      [221][146]";
710 PRINT"[221]                                      [221][146]";
720 PRINT"[221]        MARSHALL F. SCHULTZ CDP       [221][146]";
730 PRINT"[221]                                      [221][146]";
740 PRINT"[221]      COMMODORE HOUSTON USER GROUP    [221][146]";
750 PRINT"[221]                                      [221][146]";
760 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";:PRINT
770 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
780 PRINT"[221] THIS PROGRAM IS IN THE PUBLIC DOMAIN [221][146]";
790 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
800 PRINT"        PRESS ANY KEY TO PRINT"
810 GET Z$:IF Z$="" THEN810
820 PRINT"WORKING. . ."
830 OPEN 4,4
840 PRINT#4,CHR$(27);CHR$(69)
850 PRINT#4,CHR$(14);"    BLANK KEYBOARD OVERLAY FOR C-64";CHR$(15);CHR$(10)
860 PRINT#4,"                      MARSHALL F. SCHULTZ"
870 PRINT#4,"                  COMMODORE HOUSTON USER GROUP"
880 PRINT#4,"                         HOUSTON, TEXAS";CHR$(10)
890 PRINT#4,CHR$(10)
900 PRINT#4,S3$+G1$;
910 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G2$
920 FOR X=1 TO 4
930 PRINT#4,L1$
940 NEXT
950 PRINT#4,S3$+G6$+S5$+G1$+D3$+G2$+S1$+LEFT$(S1$,7)+G6$
960 PRINT#4,S3$+G6$+S5$+G6$+S5$+G4$+D3$+G2$+S6$+G6$
970 FOR X=1 TO 10
980 PRINT#4,L2$
990 NEXT
1000 PRINT#4,S3$+G6$+S4$+G1$+D2$+G5$+S6$+G6$+S6$+G6$
1010 FOR X=1 TO 5
1020 PRINT#4,L3$
1030 NEXT
1040 FOR X=1 TO 9
1050 PRINT#4,S3$;G6$;S4$;G6$;TX$(X);G6$;S6$;G6$
1060 NEXT
1070 FOR X=1 TO 26
1080 PRINT#4,L3$
1090 NEXT
1100 PRINT#4,S3$+G6$+S4$+G4$+D2$+G2$+S6$+G6$+S6$+G6$
1110 FOR X=1 TO 18
1120 PRINT#4,L2$
1130 NEXT
1140 PRINT#4,S3$+G6$+S5$+G4$+D3$+G2$+S5$+G6$+S6$+G6$
1150 PRINT#4,S3$+G6$+S6$+G4$+D3$+G5$+S6$+G6$
1160 FOR X=1 TO 4:PRINT#4,L1$:NEXT
1170 PRINT#4,S3$;G6$;S5$;G1$;D1$;G2$;S6$;G6$
1180 FOR X=1 TO 2
1190 PRINT#4,L2$
1200 NEXT
1210 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H1$+G6$
1220 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H2$+G6$
1230 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H3$+G6$
1240 PRINT#4,L2$
1250 PRINT#4,S3$;G6$;S5$;G4$;D1$;G5$;S6$;G6$
1260 FOR X=1 TO 6:PRINT#4,L1$:NEXT
1270 PRINT#4,S3$+G4$;
1280 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G5$
1290 PRINT#4,CHR$(12)
1300 CLOSE4
1310 PRINT"                                      "
1320 PRINT"ANOTHER COPY (Y/N)  N"
1330 PRINT"                                      "
1340 INPUT"                  [145][145]";R$
1350 IF R$="Y"THEN630
1360 END
2980 REM *****************************
2990 REM    RESAVE AFTER PGM CHANGE
3000 CLOSE15
3010 OPEN15,8,15,"S0:KEYBD.OVLY.C-64"
3020 PRINT#15,"V0":CLOSE15
3030 SAVE"0:KEYBD.OVLY.C-64",8
3040 VERIFY"0:KEYBD.OVLY.C-64",8
3050 LIST-2900
3060 END